home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vidlibp / vidsynop.frm < prev   
Text File  |  1995-05-01  |  2KB  |  87 lines
  1. VERSION 2.00
  2. Begin Form VidSynop 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   6480
  6.    ClientLeft      =   1065
  7.    ClientTop       =   480
  8.    ClientWidth     =   6795
  9.    ControlBox      =   0   'False
  10.    Height          =   6885
  11.    HelpContextID   =   240
  12.    Left            =   1005
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   6480
  17.    ScaleWidth      =   6795
  18.    Top             =   135
  19.    Width           =   6915
  20.    WindowState     =   2  'Maximized
  21.    Begin CommandButton cmdCancel 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "&Cancel"
  24.       Height          =   465
  25.       HelpContextID   =   240
  26.       Left            =   4860
  27.       TabIndex        =   2
  28.       Top             =   150
  29.       Width           =   1230
  30.    End
  31.    Begin CommandButton cmdDone 
  32.       Caption         =   "&Done"
  33.       Default         =   -1  'True
  34.       Height          =   465
  35.       HelpContextID   =   240
  36.       Left            =   3330
  37.       TabIndex        =   1
  38.       Top             =   150
  39.       Width           =   1230
  40.    End
  41.    Begin TextBox txtSynopsis 
  42.       BackColor       =   &H0000FFFF&
  43.       FontBold        =   -1  'True
  44.       FontItalic      =   0   'False
  45.       FontName        =   "MS Sans Serif"
  46.       FontSize        =   9.75
  47.       FontStrikethru  =   0   'False
  48.       FontUnderline   =   0   'False
  49.       Height          =   5940
  50.       HelpContextID   =   240
  51.       Left            =   270
  52.       MultiLine       =   -1  'True
  53.       ScrollBars      =   2  'Vertical
  54.       TabIndex        =   0
  55.       Top             =   750
  56.       Width           =   9015
  57.    End
  58. End
  59. ' Subsystem: Edit
  60. ' Module:    VidSynop.Frm
  61. ' Date:      01/03/94
  62. ' Author:    Richard Stauch
  63. ' Notes:
  64. ' This form displays up to MAXROWs of Video table data in
  65. ' a grid form for review.
  66.  
  67. Option Explicit
  68. DefInt A-Z
  69.  
  70. Sub cmdCancel_Click ()
  71. ' Remove the Synopsis form from the display.
  72.   Unload VidSynop
  73. End Sub
  74.  
  75. Sub cmdDone_Click ()
  76. ' Save the Synopsis text (edited or not).
  77.   Synopsis$ = txtSynopsis.Text
  78. ' Call the Click event of the Cancel button.
  79.   cmdCancel_Click
  80. End Sub
  81.  
  82. Sub Form_Load ()
  83. ' Load the form, and set the Synopsis text.
  84.   txtSynopsis.Text = Synopsis$
  85. End Sub
  86.  
  87.